<%

Function segmento(seg)
If seg < "A" Or seg > "P" Then segmento = "Outros"
if seg="A" then
  segmento  = "E.I.Did.EBSA"
elseif seg="B" then
  segmento  = "E.I.Par.EBSA"
elseif seg="C" then
  segmento  = "E.I.Did.Terc"
elseif seg="D" then
  segmento  = "E.I.Par.Terc"
elseif seg="E" then
  segmento  = "1a4.Did.EBSA"
elseif seg="F" then
  segmento  = "1a4.Par.EBSA"
elseif seg="G" then
  segmento  = "1a4.Did.Terc"
elseif seg="H" then
  segmento  = "1a4.Par.Terc"
elseif seg="I" then
  segmento  = "5a8.Did.EBSA"
elseif seg="J" then
  segmento  = "5a8.Par.EBSA"
elseif seg="K" then
  segmento  = "5a8.Did.Terc"
elseif seg="L" then
  segmento  = "5a8.Par.Terc"
elseif seg="M" then
  segmento  = "Med.PEC"
elseif seg="N" then
  segmento  = "Med.Par.EBSA"
elseif seg="O" then
  segmento  = "Med.Did.Terc"
elseif seg="P" then
  segmento  = "Med.Par.Terc"
else
  segmento  = "Outros"
End IF

End Function

%>